Designer's Club 1997 July/Designer's Club 1997 July.iso/pc/ideasrc/gallery.dir/00016.ls

Text File | 1997-05-30 | 493 b | 29 lines

on startMovie
  global gallery
  set gallery to "slideshow"
end

on keyDown
  if the key = 1 then
    set the soundLevel to 1
  end if
  if the key = 2 then
    set the soundLevel to 2
  end if
  if the key = 3 then
    set the soundLevel to 3
  end if
  if the key = 4 then
    set the soundLevel to 4
  end if
  if the key = 5 then
    set the soundLevel to 5
  end if
  if the key = 6 then
    set the soundLevel to 6
  end if
  if the key = 7 then
    set the soundLevel to 7
  end if
end